#!/usr/bin/env perl

use utf8;
use strict;
use autodie;
use 5.010;

if(@ARGV == ()){
    say "Not enough arguments.";
    exit 0;
}

open my $fh => '<', $ARGV[0];

foreach(<$fh>){
    if(/WA_[A-Z]+_[0-9]+/){
		say "WA_MODE --> $_";
    }
    else if(/[A-Z][0-9]+/){
		say "ELEMENT --> $_";
	}
}

